inherited fFornecedorCadastro: TfFornecedorCadastro
  Left = 354
  Top = 75
  VertScrollBar.Range = 0
  BorderStyle = bsSingle
  ClientHeight = 500
  ClientWidth = 708
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited MMJPanel1: TMMJPanel
    Top = 446
    Width = 708
    inherited btnGravar: TBitBtn
      Left = 302
    end
    inherited btnIncluir: TBitBtn
      Left = 302
    end
    inherited btnCancelar: TBitBtn
      Left = 409
    end
    inherited btnExcluir: TBitBtn
      Left = 409
    end
    inherited btnProcurar: TBitBtn
      Left = 196
      OnClick = btnProcurarClick
    end
    inherited btnSair: TBitBtn
      Left = 515
    end
    object BitBtn3: TBitBtn
      Left = 9
      Top = 7
      Width = 103
      Height = 39
      Caption = '&Represent.'
      Enabled = False
      PopupMenu = PopupMenu1
      TabOrder = 6
      Visible = False
      OnClick = BitBtn3Click
      Glyph.Data = {
        360C0000424D360C000000000000360000002800000020000000200000000100
        180000000000000C0000C40E0000C40E000000000000000000000000B90F0FC6
        1414C81414C71414C51414C31414C21414C01414BE1414BD1414BB1414B91414
        B71414B61414B41414B21414B11414AF000092C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000BB3030EE
        4040FF4040FF4040FF4040FF4040FF4040FF4040FF4040FF4040FF4040FF4040
        FF4040FF4040FF4040FF4040FF4040FF000095C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000BD1717E3
        2828FF2828FF2828FF2020FF2020FF2222FF2828FF2828FF2828FF2828FF2828
        FF2828FF2828FF2828FF2828FF2121EC09038F8B291088250E85200C811B0A7D
        1808791207760E067309046F05026B01006B00006B00006B00000000BF0707DC
        0F0FFF1010FF0A0AFF0808FF0808FF0808FF0E0EFF1010FF0F0FFF0F0FFF0F0F
        FF0F0FFF0F0FFF0F0FFF0F0FFF0B0BE0392483E5903FE48E3EE38D3EE28C3DE1
        8B3DE0893CDF883CDE873BDD863BDC843ADC843ADC843A7200000000C00000CA
        0000FC1E1EFF2121FF2121FF2121FF2121FF2121FF1717FF0000FC0000FC0000
        FC0000FC0000FC0000FC0000FC0000C1805369FFA636FFA636FFA636FFA636FF
        A636FFA636FFA636FFA636FFA636FFA636FFA636FFA636720000C0C0C00000C4
        0000EC3C3CFF3C3CFF3C3CFF3C3CFF3C3CFF3C3CFF3C3CFF2727FC0000F50000
        F50000F50000F50000F50000F50000A6CF7025FF8503FF8A0AFF9415FF9A1BFF
        9A1BFF9A1BFF9A1BFF9A1BFF9A1BFF9A1BFF9A1BE57D176F0000C0C0C00000C4
        0000D63F3FFC5656FF5656FF5656FF5656FF5656FF5656FF5656FF4C4CFD2828
        F81818F51818F51D1DF60000D5301A86FF8708FF8708FF8708FF8708FF8D08FF
        8F04FF8F04FF8F04FF8F04FF8F04FF8F04FF8F04CC5B046C0201C0C0C00000C8
        0000C71B1BF07070FF7070FF7070FF7070FF7070FF7070FF7070FF7070FF7070
        FF7070FF7070FF3737F40000B19F5B50FF911BFF911BFF911BFF911BFF901AFF
        8B06FF8900FF8900FF8900FF8900FF8900FF8900A43203650603C0C0C0C0C0C0
        0000C70000CF4C4CF98989FF8989FF8989FF8989FF8989FF8989FF8989FF8989
        FF8989FF6E6EFD0000CB40288EFF9D35FF9D35FF9D35FF9D35FF9D35FF9D35FF
        9C32FF931EFF8804FF8600FF8600FF8600EF78017E0F062E0402C0C0C0C0C0C0
        C0C0C00000C80000D86363FAA2A2FFA2A2FFA2A2FFA2A2FFA2A2FFA2A2FFA2A2
        FF8282FD0A0ADA0C06A6EB892BFFAC54FFAC54FFAC54FFAC54FFAC54FFAC54FF
        AC54FFAC54FFAC54FFA84BFFA84BFFA039B24106771207C0C0C0C0C0C0C0C0C0
        C0C0C00000CA0000C80000D55B5BF6AFAFFEBBBBFFBBBBFFBBBBFFBBBBFF7272
        FA0B0BD50000B28A4746D97014FFB15DFFBC75FFBC75FFBC75FFBC75FFBC75FF
        BC75FFBC75FFBC75FFBC75FFBC75E9801E861D0B520F06C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C00000CA0000C70000CA0000D93333EA3333E93333E90D0DDB0000
        C10000B1000087984F1EBD6125E58020FFCA90FFCF9BFFCF9BFFCF9BFFCF9BFF
        CF9BFFCF9BFFCF9BFFCF9BF89A389D320D7C1E0BC0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C000007D0000AA0017BF0016BD0012BA0000A50000
        6CC0C0C0C0C0C0C0C0C0B85F25BD6125E58730FFD09EFFE3C5FFE3C5FFE3C5FF
        E3C5FFE3C5FFDCB7F29D49AA400F8B290FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C000549B005FB1005FB32B7CC42B7AC12071BA0058A90051
        9B00396DC0C0C0C0C0C0C0C0C0B75F25BB6025CF6918F6A959FFD2A0FFD9AFFF
        D9AFF9B165DC7825A43E14903013C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0004A880065BB2882CD70B2E9A5D7FFA5D7FFA5D7FFA5D7FF9ACFFA66A7
        DF1468B4004F97001930C0C0C0C0C0C089461BB15922B65923C25F1BC45F17C1
        5B16A9471B993D176D2910C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        00579D006CC44B9DE19AD2FF9AD2FF9AD2FF9AD2FF9AD2FF9AD2FF9AD2FF9AD2
        FF90CAFA2F7EC40054A2C0C0C0C0C0C0C0C0C0004C8D00549F1959972D598923
        558C004C92003F79C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        006EC6479EE48FCDFF8FCDFF8FCDFF8FCDFF8FCDFF8FCDFF8FCDFF8FCDFF8FCD
        FF8FCDFF8FCDFF2375BF004A8E004A880062B72A80CA5EA4DE7EBAEB7EB9EB7E
        B9EA5EA0D91F70B90056A400386CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00066B6
        107DD583C7FF83C7FF83C7FF83C7FF83C7FF83C7FF83C7FF83C7FF83C7FF83C7
        FF83C7FF83C7FF72B9F40058A90A6FC476B8EF9FD4FF9FD4FF9FD4FF9FD4FF9F
        D4FF9FD4FF9FD4FF6CADE40A60AE004380C0C0C0C0C0C0C0C0C0004FAC0067C4
        2F8BE060A8F069AFF482C4FF82C3FF80C3FF7AC0FF74BDFF74BDFF74BDFF74BD
        FF74BDFF74BDFF74BDFF2477C4539BD993CFFF93CFFF93CFFF93CFFF93CFFF93
        CFFF93CFFF93CFFF93CFFF77B8EF095FAE003E78C0C0C0C0C0C0005DC900A3E0
        00ADE20083D30077CE095EC52C7AD363A6EB93CCFF87C5FF69B3FF65B1FF65B1
        FF65B1FF65B1FF65B1FF3384D44491D488CAFF88CAFF88CAFF88CAFF88CAFF88
        CAFF88CAFF88CAFF88CAFF88CAFF65ADEA0057A7001A31C0C0C0005FCB00F7FF
        00EBFF00EBFF00EBFF00E4FB00B8E8006AC71E6CCA7BB3EEA2D2FF86C2FF67B1
        FF62AEFF62AEFF62AEFF3789DA408ED480C4FF7FC4FF7EC4FF7BC2FF7BC2FF7B
        C2FF7BC2FF7BC2FF7BC2FF7BC2FF7BC2FF1E72BF004482C0C0C0006AD004E8FF
        12DAFF12DAFF12DAFF12DAFF12DAFF10E2FF05A6E3005DC24386D5ACD4FBB8DD
        FF99CCFF7FBEFF68B1FF3184D61152963B69A05D92CA8BC8FF88C7FF78BDFF6B
        B6FF6BB6FF6BB6FF6BB6FF6BB6FF6BB6FF3C8CD9004F98C0C0C00062CF0ED7FC
        37E0FF37E0FF37E0FF37E0FF37E0FF37E0FF37E0FF22D8FB0487D60C5CC0639B
        DDAFD3F6C9E6FFB5DBFF0C67BA105DA00F4680052D65133369618CBE9ED1FF8D
        C7FF6AB3FF62AEFF62AEFF62AEFF62AEFF4A99EA00539FC0C0C00063CF0AA9ED
        5BE5FF5BE5FF5BE5FF5BE5FF5BE5FF5BE5FF5BE5FF5BE5FF56E4FF31CCF70D84
        D50052BB4381CF3A83D2025FB007629A07629A0E639D0D528C032C65203E7383
        A9D4B0DAFF95CAFF77BAFF62AEFF62AEFF3D8EE000519DC0C0C00063D0007CDC
        65E3FF7EEBFF7EEBFF7EEBFF7EEBFF7EEBFF7EEBFF7EEBFF7EEBFF7EEBFF7EEB
        FF5AD9FB3BAAE50072CF004FB71665AE2977A82977A82977A82572A50B427A00
        1D56476392A9C8E9C2E2FFBCDFFFA5D3FF257BCD004B90C0C0C0C0C0C00065D1
        26A0EBA0F0FFA0F0FFA0F0FFA0F0FFA0F0FFA0F0FFA0F0FFA0F0FFA0F0FFA0F0
        FFA0F0FF58D4FF009CEE0655B94587B74D8EB74D8EB74D8EB74D8EB74D8EB734
        76A60B3F77001B544057868FA6C89BCAFA0663B7002D55C0C0C0C0C0C00063CF
        0065D246ABEEC1F5FFC1F5FFC1F5FFC1F5FFC1F5FFC1F5FFC1F5FFC1F5FFC1F5
        FF9BE6FF0B98EF0059C1508CC371A5C571A5C571A5C571A5C571A5C571A5C571
        A5C571A5C5518BB327558708265F001954002968000C2FC0C0C0C0C0C0C0C0C0
        0063CF0065D24492E0C3E7F9E1FAFFE1FAFFE1FAFFE1FAFFE1FAFFD2F5FF6DCB
        FB007FE10054BA3877B694BBD494BBD494BBD494BBD494BBD494BBD494BBD494
        BBD494BBD494BBD494BBD48AB4CF004A88001852001141C0C0C0C0C0C0C0C0C0
        C0C0C00065D30063D00063D13D8DDE7CB4EA7CC0F27CC0F25CACEB0F7DDC005F
        C90056BC003D7A00386892B2C9B6D0E1B6D0E1B6D0E1B6D0E1B6D0E1B6D0E1B6
        D0E1B6D0E1B6D0E1B6D0E12C74A7002E6A00134BC0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C00064D10062CE0060CC0060CB005ECA005CC60059C10051
        B1C0C0C0C0C0C00037650D406D90AEC5D6E5EED6E5EED6E5EED6E5EED6E5EED6
        E5EED6E5EEC7DBE8407DAC002A6300174F000D2DC0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C00036640035643A678EA4B7C9E3ECF3F2F7FAF2F7FAC3
        D7E6769BBB0F427800235A001C50001239C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
        C0C0C0C0C0C0C0C0C0C0C0C0C000366500346300326300306100356A00366C00
        295C002659002357001C49C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
    end
    object BitBtn2: TBitBtn
      Left = 9
      Top = 7
      Width = 103
      Height = 40
      Caption = 'Lista Prod.'
      PopupMenu = PopupMenu1
      TabOrder = 7
      Visible = False
      OnClick = BitBtn2Click
      Glyph.Data = {
        6E0B0000424D6E0B00000000000036040000280000002A0000002A0000000100
        08000000000038070000000000000000000000010000000000004372B8002743
        89000B236B00071C65005C8DCB007B9BC4002C62B300597BAE004C82C6000014
        5C0029468C00497EC50034599D002E4C920033559A002A4989007495C300889B
        C400526DA100325195006593CD004C6AA900558ACC0027478300426AAD00547A
        AB00B5CCE90098B7DE0085A4C9001C4491008BA9CB002E59A100366AB600436F
        B4004D7ABD003A70BC00224D9B000000000015327C001D3A780011286F003A69
        B200547DBC00213C83007895BD00386EBA006280B1001D428E00376DBA002139
        7D004A70AE00668DC3003666B0005381C1004A74B3005B91CF005783C3004C75
        A7007FA2CA004665A10026519C004966A3007DA5D7006882AD003D639D002C44
        82003066B600214996003369B800355CA1005086C8005472A9004877BB003957
        99004278C0004D6DA7003B63A600193275002656A6005982BC003C5DA0002C57
        A1005878B100536C9D00BED3EC005170AD0086A9D7003C73BE0016368100193A
        84001D3579003E5C9E0026407C00799DCB003261AD005D7CB600467CC2003A55
        94002D5097004165A6000C267000223F84004176BF003D6DB500305CA6003E74
        BF00496EA2005976AE002D559D005674B0004B6EA60011276B005E92D000152D
        7200112D7600264A92002C5AA9001E3A81001E3E8600325BA600325A9F002D5E
        AD00254B950032558E00314F94002A539F001F4693001C357C003561A9003760
        A600447AC2002D5CA900285EB1004669A30042689F003C5A9D00415F9B003F66
        9E0010297100263F82001A367D004269A000335396002348920027498E00304F
        9100193780004765A500265BAF005273AB00193C87001C398500213B80004562
        9F00102B7500182E74003E6DB2003C6AB1003564AF003866AE004160A000415F
        A0002B559F0019337A00606C9900102265009FA6C100EFF0F500505D8E00BFC4
        D600AFB5CC0020317000CFD3E000466FA3008F97B700404E8400303F7A00DFE1
        EA007F89AD004E7BA900152F7600707BA3003B5F9C002B549B004F7DC000213F
        8A004563A300375292003C6BB4002540850029529A00496297007799C00092A4
        C7006385B60039599E0016307600375C94006095D200A0B5D5006684B5004E78
        B7006886B5004070B7005F7FB800C3CCE100244D97005A7AA800356CB900112B
        7800153886004774AF005988C600304A8C005076A9005371A5005A75A5003154
        9600365597006F8DB9003B619600345EA3005E7AB3005F7FB2005B79B4005573
        AE006385B300142C7000305FAA00132C7300425A8F0090AECD00274C91001A3A
        82009AA9CB002357AB005D80B1005481BF005A83AF002F5299005876B2002F53
        9C00527AB700627BAD004968A6004E6CA5003160AB001B2F6D003562AC00B0BC
        D700B5C8E2003F6598003B599A006A90BA002C4A9000FFFFFF00A9A9A9A9A9A9
        A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        A9A9A9A90000A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A90000A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A90000A9A9
        A9A9A9A9A9A9A9A9A9A9A9A9A9A409ABB2B1A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        A9A9A9A9A9A9A9A90000A9A9A9A9A9A9A9A9A9A9A9A9A9A7A803D8A30309AFA6
        A7A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A90000A9A9A9A9A9A9A9A9A9A9
        A9A9A9AE6F2CE749FEBD2809A5A4ACA9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        0000A9A9A9A9A9A9A9A9A9A9A9A9ACA5F7BF532CF5FEFEFE7F0209ABAEB1A9A9
        A9A9A9A9A9A9A9A9A9A9A9A90000A9A9A9A9A9A9A9A9A9A9A9ACA5285A5A41CF
        85C2DF4713FE01B40309A8A6A9A9A9A9A9A9A9A9A9A9A9A90000A9A9A9A9A9A9
        A9A9A9A9AAA5E3315A6F5A2EB6FEFE4952070749FE2B2809A5A4ACA9A9A9A9A9
        A9A9A9A90000A9A9A9A9A9A9A9A9A9A60971987502D23112862B01FEFEFE134B
        0795880A7F0209B0A9A9A9A9A9A9A9A90000A9A9A9A9A9A9A9A9A6094DBD7F03
        A1772FBD2E658A72E57F01FEFEFEA095953B0128ABA9A9A9A9A9A9A90000A9A9
        A9A9A9A9A9A609980176022ADE21248BD7B68C964E43D29A287F01FEFE134B88
        09A9A9A9A9A9A9A90000A9A9A9A9A9A9A4092B0AA36421336B9EEB01128DFE7E
        1D7483839696589A287F019709A9A9A9A9A9A9A90000A9A9A9A9A9A40965FE92
        267938384394947A01077CA23C585E5E5E2F7E83747E020103A6A9A9A9A9A9A9
        0000A9A9A9A9A4030A0D2626CC2D06244E8484240AF589629E5192343434A259
        79742F7FD1A8A9A9A9A9A9A90000A9A9AAA8030D7C8A2F24B842422F0606067E
        FE9939FE9FBC80E99F29296859838302B909A7A9A9A9A9A90000A9A6095CDA0E
        B44344244444442F4242061D7DFEEC8E45CB009C8C9D6729F89651260103AEA9
        A9A9A9A90000A90953C813023C30303C3030423C44444E4E790D6B892BDD4848
        219281CBBC29922FB426B0A9A9A9A9A90000A9ABBF4964832D23207D23233C20
        30D0434442EFFCD6FE6245B822006581CB29348F030A09ACA9A9A9A90000A9A4
        41A002235757A22D69578F57232D7AD044777C198E4C180C35B822658167299E
        592B64B5A9A9A9A90000A9AA09139B68664ABE4A4A4A7A695757CE2DD042134B
        8913D4360135B822767A2934512897A5A9A9A9A90000A9A9ABBDD5764A82B760
        60671F4A66F8F6232D3C0C4919FEC90436D93522489073345E720103AAA9A9A9
        0000A9A9A47193646066DD0B0B6C666082BE6957233CF88E6E8E631404ED0148
        4800738F5E2F7F9AA8A9A9A90000A9A9AA09F49B00DD600808620B0B60B74A69
        573C20DAF4407C1404D422750000678F2F838AB909A7A9A90000A9A9A7098E0F
        7878464646E808080B6C824A29E42D633BD6FEFEFEFEFE0A0AFEFEFE01FEBDFE
        03A4A9A90000A9A9A909123D8C451616004C46469C9D604A5157232AEA6E3BFE
        FEFEFEFEFEFEFEFEFEFEFEFE7509A9A90000A9A9A9AFE65F6FDD16040E161646
        780804561F69237ACD1105FEFEFEFEFEFEFEFEFEFEFE0A2B2B02A8A90000A9A9
        A9AE6FE18B2137370C04161678141A3E1F68A301F9111E612B2B2B2B752B2B65
        0F0F0FB6401709A90000A9A9A9A7A591999070700C37701BC71414CB72988787
        4711E73940ADADAD39B3B3B3EEAD8D7B2709A4A90000A9A9A9A9A45A5F4DC62A
        363E1AFAC746735A5BBAA1870E10071989D3FDE2B6185D2C49010209A8A9A9A9
        0000A9A9A9A9A6035F5A38631B5454C118714915F4BAC381331C47F14F1C4745
        33053B0A2809AFACA9A9A9A90000A9A9A9A9A7093B614C05541A5DC4D5555515
        5B784F1E4762361C2EEFF21C470AB409ABA9A9A9A9A9A9A90000A9A9A9A9A9B0
        015575F3569131556D55930C4F1C2E8E183A2E8E183A2E137F03A5A6A9A9A9A9
        A9A9A9A90000A9A9A9A9A9B58AE09B905A3D526D15C3363A2E134C10DB490705
        C06AC502A5B2A7A9A9A9A9A9A9A9A9A90000A9A9A9A9A9A90932BBBB52F05550
        323ACA133D0505198986FB174D6F09B0B1A9A9A9A9A9A9A9A9A9A9A90000A9A9
        A9A9A9A9091C6D6D55A02E10C08540AD6AC517E3030909AFA4AEA9A9A9A9A9A9
        A9A9A9A9A9A9A9A90000A9A9A9A9A9A9093F10EC89AD39DC7B5CE30909A5AFB5
        A6ACA9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A90000A9A9A9A9A9A9A85CCF17
        276F0909ABA8B2AAB1A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        0000A9A9A9A9A9A9AA0909B0A4AEA9A7A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        A9A9A9A9A9A9A9A9A9A9A9A90000A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A90000A9A9A9A9A9A9
        A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        A9A9A9A90000A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9
        A9A9A9A9A9A9A9A9A9A9A9A9A9A9A9A90000}
    end
    object btn1: TBitBtn
      Left = 90
      Top = 7
      Width = 103
      Height = 40
      Caption = 'Propriedades'
      PopupMenu = PopupMenu1
      TabOrder = 8
      OnClick = btn1Click
    end
  end
  inherited MMJPanel2: TMMJPanel
    Width = 708
    Height = 41
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -29
    Font.Name = 'Cooper Blk BT'
    ParentFont = False
    inherited Label1: TLabel
      Top = -58
    end
    inherited Label2: TLabel
      Top = -59
    end
    object DBText2: TDBText
      Left = 10
      Top = 6
      Width = 661
      Height = 32
      DataField = 'NOMEFORNECEDOR'
      DataSource = DtSrc
      PopupMenu = PopupMenu1
      Transparent = True
    end
    object DBRadioGroup3: TDBRadioGroup
      Left = 549
      Top = 4
      Width = 157
      Height = 34
      Color = cl3DLight
      Columns = 2
      Ctl3D = True
      DataField = 'STATUS'
      DataSource = DtSrc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Items.Strings = (
        'ATIVO'
        'INATIVO')
      ParentColor = False
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Values.Strings = (
        '1'
        '2')
    end
  end
  object pgc1: TPageControl [2]
    Left = 0
    Top = 41
    Width = 708
    Height = 405
    ActivePage = ts1
    Align = alClient
    TabOrder = 2
    object ts1: TTabSheet
      Caption = 'CADASTRO'
      object lbl1: TLabel
        Left = 11
        Top = -1
        Width = 39
        Height = 13
        Caption = 'C'#243'digo :'
      end
      object lbl2: TLabel
        Left = 75
        Top = -1
        Width = 34
        Height = 13
        Caption = 'Nome :'
      end
      object lbl3: TLabel
        Left = 383
        Top = -1
        Width = 37
        Height = 13
        Caption = 'Raz'#227'o :'
      end
      object lbl4: TLabel
        Left = 153
        Top = 46
        Width = 58
        Height = 13
        Caption = 'CNPJ / CPF'
      end
      object lbl5: TLabel
        Left = 349
        Top = 46
        Width = 37
        Height = 13
        Caption = 'IE / RG'
      end
      object lbl6: TLabel
        Left = 584
        Top = 46
        Width = 51
        Height = 13
        Caption = 'Data. Cad.'
      end
      object lbl7: TLabel
        Left = 13
        Top = 90
        Width = 37
        Height = 13
        Caption = 'Contato'
      end
      object lbl8: TLabel
        Left = 173
        Top = 90
        Width = 47
        Height = 13
        Caption = 'Lim. Cr'#233'd.'
      end
      object lbl9: TLabel
        Left = 235
        Top = 90
        Width = 49
        Height = 13
        Caption = 'Prazo Ent.'
      end
      object lbl10: TLabel
        Left = 13
        Top = 133
        Width = 46
        Height = 13
        Caption = 'Endere'#231'o'
      end
      object lbl11: TLabel
        Left = 13
        Top = 179
        Width = 27
        Height = 13
        Caption = 'Bairro'
      end
      object lbl12: TLabel
        Left = 312
        Top = 179
        Width = 64
        Height = 13
        Caption = 'Complemento'
      end
      object lbl13: TLabel
        Left = 13
        Top = 223
        Width = 33
        Height = 13
        Caption = 'Cidade'
      end
      object lbl14: TLabel
        Left = 249
        Top = 223
        Width = 19
        Height = 13
        Caption = 'Cep'
      end
      object lbl15: TLabel
        Left = 342
        Top = 223
        Width = 14
        Height = 13
        Caption = 'UF'
      end
      object lbl16: TLabel
        Left = 13
        Top = 329
        Width = 28
        Height = 13
        Caption = 'E-mail'
      end
      object lbl17: TLabel
        Left = 240
        Top = 329
        Width = 82
        Height = 13
        Caption = 'Dados Adicionais'
      end
      object lbl19: TLabel
        Left = 302
        Top = 89
        Width = 21
        Height = 13
        Caption = 'Tipo'
      end
      object lbl20: TLabel
        Left = 455
        Top = 133
        Width = 37
        Height = 13
        Caption = 'N'#250'mero'
      end
      object lbl21: TLabel
        Left = 436
        Top = 223
        Width = 61
        Height = 13
        Caption = 'C'#243'digo IBGE'
      end
      object lbl22: TLabel
        Left = 538
        Top = 224
        Width = 20
        Height = 13
        Caption = 'Pais'
        FocusControl = dbedtTELEFONE
      end
      object lbl24: TLabel
        Left = 533
        Top = 89
        Width = 51
        Height = 13
        Caption = 'Tipo Fiscal'
      end
      object lbl25: TLabel
        Left = 512
        Top = 46
        Width = 28
        Height = 13
        Caption = 'CFOP'
      end
      object dbedtCODFORNECEDOR: TDBEdit
        Left = 11
        Top = 15
        Width = 61
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CODFORNECEDOR'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        ReadOnly = True
        TabOrder = 0
        OnExit = dbedtNOMEFORNECEDORExit
        OnKeyPress = FormKeyPress
      end
      object dbedtNOMEFORNECEDOR: TDBEdit
        Left = 74
        Top = 15
        Width = 308
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'NOMEFORNECEDOR'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 1
        OnExit = dbedtNOMEFORNECEDORExit
        OnKeyPress = FormKeyPress
      end
      object dbedtRAZAOSOCIAL: TDBEdit
        Left = 383
        Top = 15
        Width = 294
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'RAZAOSOCIAL'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 2
        OnKeyPress = FormKeyPress
      end
      object dbrgrpTIPOFIRMA: TDBRadioGroup
        Left = 11
        Top = 40
        Width = 141
        Height = 46
        Caption = 'Tipo'
        Columns = 2
        DataField = 'TIPOFIRMA'
        DataSource = DtSrc
        Items.Strings = (
          'F'#237'sica'
          'Jur'#237'dica')
        PopupMenu = PopupMenu1
        TabOrder = 3
        Values.Strings = (
          '0'
          '1')
        OnClick = dbrgrpTIPOFIRMAClick
      end
      object dbedtCNPJ: TDBEdit
        Left = 153
        Top = 62
        Width = 159
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CNPJ'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 4
        OnKeyPress = FormKeyPress
      end
      object dbedtINSCESTADUAL: TDBEdit
        Left = 348
        Top = 62
        Width = 156
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'INSCESTADUAL'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 5
        OnKeyPress = FormKeyPress
      end
      object dbedtDATACADASTRO: TDBEdit
        Left = 584
        Top = 62
        Width = 92
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'DATACADASTRO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 6
        OnKeyPress = FormKeyPress
      end
      object dbedtCONTATO: TDBEdit
        Left = 13
        Top = 106
        Width = 154
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CONTATO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 7
        OnKeyPress = FormKeyPress
      end
      object dbedtLIMITECREDITO: TDBEdit
        Left = 173
        Top = 106
        Width = 51
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'LIMITECREDITO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 8
        OnKeyPress = FormKeyPress
      end
      object dbedtPRAZOENTREGA: TDBEdit
        Left = 235
        Top = 106
        Width = 63
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'PRAZOENTREGA'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 9
        OnKeyPress = FormKeyPress
      end
      object dbedtLOGRADOURO: TDBEdit
        Left = 13
        Top = 149
        Width = 437
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'LOGRADOURO'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 10
        OnKeyPress = FormKeyPress
      end
      object dbedtBAIRRO: TDBEdit
        Left = 13
        Top = 195
        Width = 298
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'BAIRRO'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 11
        OnKeyPress = FormKeyPress
      end
      object dbedtCOMPLEMENTO: TDBEdit
        Left = 312
        Top = 195
        Width = 249
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'COMPLEMENTO'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 12
        OnKeyPress = FormKeyPress
      end
      object dbrgrpTIPOEND: TDBRadioGroup
        Left = 564
        Top = 135
        Width = 113
        Height = 84
        Caption = 'Endere'#231'o'
        DataField = 'TIPOEND'
        DataSource = dtsrce
        Items.Strings = (
          'Principal'
          'Cobran'#231'a'
          'Entrega')
        PopupMenu = PopupMenu1
        TabOrder = 13
        Values.Strings = (
          '0'
          '1'
          '2')
      end
      object dbedtCIDADE: TDBEdit
        Left = 13
        Top = 239
        Width = 232
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CIDADE'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 14
        OnKeyPress = FormKeyPress
      end
      object dbedtCEP: TDBEdit
        Left = 249
        Top = 239
        Width = 89
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        CharCase = ecUpperCase
        DataField = 'CEP'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 15
        OnKeyPress = FormKeyPress
      end
      object grp1: TGroupBox
        Left = 12
        Top = 269
        Width = 665
        Height = 59
        Caption = 'Telefones :'
        TabOrder = 16
        object lbl26: TLabel
          Left = 34
          Top = 13
          Width = 24
          Height = 13
          Caption = 'DDD'
        end
        object lbl27: TLabel
          Left = 78
          Top = 13
          Width = 37
          Height = 13
          Caption = '1'#186' Fone'
        end
        object lbl28: TLabel
          Left = 190
          Top = 13
          Width = 37
          Height = 13
          Caption = '2'#186' Fone'
        end
        object lbl29: TLabel
          Left = 302
          Top = 13
          Width = 37
          Height = 13
          Caption = '3'#186' Fone'
        end
        object lbl30: TLabel
          Left = 414
          Top = 13
          Width = 17
          Height = 13
          Caption = 'Fax'
        end
        object lbl31: TLabel
          Left = 526
          Top = 13
          Width = 30
          Height = 13
          Caption = 'Ramal'
        end
        object dbedtDDD: TDBEdit
          Left = 33
          Top = 29
          Width = 38
          Height = 24
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          DataField = 'DDD'
          DataSource = dtsrce
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnKeyPress = FormKeyPress
        end
        object dbedtTELEFONE: TDBEdit
          Left = 76
          Top = 29
          Width = 108
          Height = 24
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          DataField = 'TELEFONE'
          DataSource = dtsrce
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          PopupMenu = PopupMenu1
          TabOrder = 1
          OnKeyPress = FormKeyPress
        end
        object dbedtTELEFONE1: TDBEdit
          Left = 188
          Top = 29
          Width = 108
          Height = 24
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          DataField = 'TELEFONE1'
          DataSource = dtsrce
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          PopupMenu = PopupMenu1
          TabOrder = 2
          OnKeyPress = FormKeyPress
        end
        object dbedtTELEFONE2: TDBEdit
          Left = 300
          Top = 29
          Width = 108
          Height = 24
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          DataField = 'TELEFONE2'
          DataSource = dtsrce
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          PopupMenu = PopupMenu1
          TabOrder = 3
          OnKeyPress = FormKeyPress
        end
        object dbedtFAX: TDBEdit
          Left = 412
          Top = 29
          Width = 108
          Height = 24
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          DataField = 'FAX'
          DataSource = dtsrce
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          PopupMenu = PopupMenu1
          TabOrder = 4
          OnKeyPress = FormKeyPress
        end
        object dbedtRAMAL: TDBEdit
          Left = 524
          Top = 29
          Width = 108
          Height = 24
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          DataField = 'RAMAL'
          DataSource = dtsrce
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          PopupMenu = PopupMenu1
          TabOrder = 5
          OnKeyPress = FormKeyPress
        end
      end
      object dbedtE_MAIL: TDBEdit
        Left = 13
        Top = 345
        Width = 224
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'E_MAIL'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 17
        OnKeyPress = FormKeyPress
      end
      object dbedtDADOSADICIONAIS: TDBEdit
        Left = 240
        Top = 345
        Width = 437
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'DADOSADICIONAIS'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 18
        OnKeyPress = FormKeyPress
      end
      object dbcbbUF: TDBComboBox
        Left = 342
        Top = 239
        Width = 43
        Height = 24
        BevelKind = bkFlat
        CharCase = ecUpperCase
        DataField = 'UF'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'AC'
          'AL'
          'AP'
          'AM'
          'BA'
          'CE'
          'DF'
          'ES'
          'GO'
          'MA'
          'MT'
          'MS'
          'MG'
          'PA'
          'PB'
          'PR'
          'PE'
          'PI'
          'RJ'
          'RN'
          'RS'
          'RO'
          'RR'
          'SC'
          'SP'
          'SE'
          'TO')
        ParentFont = False
        TabOrder = 19
        OnKeyPress = FormKeyPress
      end
      object dblkcbbREGIAO: TDBLookupComboBox
        Left = 299
        Top = 106
        Width = 144
        Height = 24
        BevelKind = bkFlat
        Ctl3D = True
        DataField = 'REGIAO'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        KeyField = 'CODDADOS'
        ListField = 'DESCRICAO'
        ListSource = dsDtSrcReg
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 20
        OnKeyPress = FormKeyPress
      end
      object btnSpeedButton6: TBitBtn
        Left = 482
        Top = 95
        Width = 40
        Height = 36
        TabOrder = 21
        OnClick = btnSpeedButton6Click
        Glyph.Data = {
          36080000424D3608000000000000360400002800000020000000200000000100
          0800000000000004000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00090909001212
          12001F1F1F002C2C2C003939390045454500525252005F5F5F006C6C6C007878
          780085858500929292009F9F9F00ABABAB00B8B8B800C5C5C500D2D2D200DEDE
          DE00EBEBEB00F8F8F800F0FBFF00A4A0A000C0DCC000F0CAA60000003E000000
          5D0000007C0000009B000000BA000000D9000000F0002424FF004848FF006C6C
          FF009090FF00B4B4FF0000143E00001E5D0000287C0000329B00003CBA000046
          D9000055F000246DFF004885FF006C9DFF0090B5FF00B4CDFF00002A3E00003F
          5D0000547C0000699B00007EBA000093D90000AAF00024B6FF0048C2FF006CCE
          FF0090DAFF00B4E6FF00003E3E00005D5D00007C7C00009B9B0000BABA0000D9
          D90000F0F00024FFFF0048FFFF006CFFFF0090FFFF00B4FFFF00003E2A00005D
          3F00007C5400009B690000BA7E0000D9930000F0AA0024FFB60048FFC2006CFF
          CE0090FFDA00B4FFE600003E1400005D1E00007C2800009B320000BA3C0000D9
          460000F0550024FF6D0048FF85006CFF9D0090FFB500B4FFCD00003E0000005D
          0000007C0000009B000000BA000000D9000000F0000024FF240048FF48006CFF
          6C0090FF9000B4FFB400143E00001E5D0000287C0000329B00003CBA000046D9
          000055F000006DFF240085FF48009DFF6C00B5FF9000CDFFB4002A3E00003F5D
          0000547C0000699B00007EBA000093D90000AAF00000B6FF2400C2FF4800CEFF
          6C00DAFF9000E6FFB4003E3E00005D5D00007C7C00009B9B0000BABA0000D9D9
          0000F0F00000FFFF2400FFFF4800FFFF6C00FFFF9000FFFFB4003E2A00005D3F
          00007C5400009B690000BA7E0000D9930000F0AA0000FFB62400FFC24800FFCE
          6C00FFDA9000FFE6B4003E1400005D1E00007C2800009B320000BA3C0000D946
          0000F0550000FF6D2400FF854800FF9D6C00FFB59000FFCDB4003E0000005D00
          00007C0000009B000000BA000000D9000000F0000000FF242400FF484800FF6C
          6C00FF909000FFB4B4003E0014005D001E007C0028009B003200BA003C00D900
          4600F0005500FF246D00FF488500FF6C9D00FF90B500FFB4CD003E002A005D00
          3F007C0054009B006900BA007E00D9009300F000AA00FF24B600FF48C200FF6C
          CE00FF90DA00FFB4E6003E003E005D005D007C007C009B009B00BA00BA00D900
          D900F000F000FF24FF00FF48FF00FF6CFF00FF90FF00FFB4FF002A003E003F00
          5D0054007C0069009B007E00BA009300D900AA00F000B624FF00C248FF00CE6C
          FF00DA90FF00E6B4FF0014003E001E005D0028007C0032009B003C00BA004600
          D9005500F0006D24FF008548FF009D6CFF00B590FF00CDB4FF00070707070707
          07070707070707070707100F0F0F0F0F0F0F0F0F0F0F0F0F2010070707070707
          07070707070707070707100F0F0F0909090F0F0F0F0F0F0F2010070707070707
          07070707070707070707100F0F090F0F0F090F0F0F0F0F0F2010070707070707
          07070707070707070707100F0F090F0F0F0F0F0F0F0F0F0F0710070707070707
          07070707101010101010100F0F090F0F0F0F0F0F0F0F0F0F1C10070707070707
          07070707100F0F0F0F0F100F0F090F0F0F0924232220071C1C10070707070707
          07070707100F0F0F0F0F100F0F0F0909090F232220071C1C1910070707070707
          07070707100F0F0F0F0F100F0F0F0F0F0F0F2416131313131313070707070707
          07070707100F0F0F0F0F100F0F0F0F0F0F0F24100F22201C1607070707070707
          07070707100F0F0F0F0F100F0F0F0F0F0F0F241022201C160707070707070707
          07070707100F0F090909100F0F0F0F0F0F0F2410201C16070707070707070707
          07070707100F0F090F0F100F0F0F0F2424242410101607070707070707070707
          07070707100F0F090F0F100F0F0F0F0F0F0F0F10160707070707071010101010
          10101010100F0F090F0F1010101010101010101007070707070707100F0F0F0F
          0F0F0F0F100F0F090F0F0F090F232220071C1C1007070707070707100F0F0F0F
          0F0F0F0F100F0F090909090F232220071C1C191007070707070707100F0F0F0F
          0F0F0F0F100F0F090F0F0F0F241613131313131307070707070707100F0F0F0F
          0F0F0F0F100F0F090F0F0F0F24100F22201C160707070707070707100F0F0F0F
          0F0F0F0F100F0F090F0F0F0F241022201C16070707070707070707100F0F0F09
          0909090F100F0F0F0F0F0F0F2410201C1607070707070707070707100F0F090F
          0F0F090F100F242424242424241010160707070707070707070707100F0F090F
          0F0F090F100F0F0F0F0F0F0F0F1016070707070707070707070707100F0F0F09
          0909090F1010101010101010101007070707070707070707070707100F0F0F0F
          0F0F0924232220071C1C1007070707070707070707070707070707100F0F0F09
          09090F232220071C1C191007070707070707070707070707070707100F0F0F0F
          0F0F0F241613131313131307070707070707070707070707070707100F0F0F0F
          0F0F0F24100F22201C160707070707070707070707070707070707100F0F0F0F
          0F0F0F241022201C16070707070707070707070707070707070707100F0F0F0F
          0F0F0F2410201C1607070707070707070707070707070707070707100F242424
          242424241010160707070707070707070707070707070707070707100F0F0F0F
          0F0F0F0F10160707070707070707070707070707070707070707071010101010
          1010101010070707070707070707070707070707070707070707}
      end
      object btnSpeedButton2: TBitBtn
        Left = 314
        Top = 59
        Width = 33
        Height = 27
        TabOrder = 22
        Glyph.Data = {
          F6060000424DF606000000000000360000002800000018000000180000000100
          180000000000C006000000000000000000000000000000000000C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C01800
          922C07AD342176C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C2C2EC5B47B0210486C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C02908B22F00D43212A55A4E8EC0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0B5ADE93D27A1260D93503AACC0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C06952CF2400C33204C8321F8D787B8FC0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A296E03A1FA01E00A57560D4C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07565CB2400BE30
          0ABF2712869499A8C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08168DB2400A52A08AD
          A39ADEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C04D34C32802B4300EB93D3674ADAEBDC0C0C0C0C0C0C0C0C09987DC25
          01A53214AC9585E1C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C04F34C62600B73821994B4577BDC3C4C0C0
          C09B86DF370CAF2A06AD9687E4C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C06349C72500B2
          30169D3C33877257D62700A23107AEB1A4E2C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0664CCD2C11AC260DB22604B7341BA69487DCC0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C04B30D52200DB2901D433259699A2B2C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07E66DF2201B52902D32C00
          DF2F11AE352E74909597C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09889E02300A8
          2F12A67D6ED7967EEC3314AB3A1AA3463880807C9EC0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C093
          86DD2D0CAA2D04B17664C8C0C0C0C0C0C0C1ADFA3710AD310F9E423187616284
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C07C67DF2000AC2603B57566C2C0C0C0C0C0C0C0C0C0C0C0C0C0C0C052
          34B82E08B22F14A1464A79C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C09483E02400AF2507B05240BEC0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C08169DB2A0DA235209841397FC0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C07D6DC82C0AAF2D04BF432EB3C4C1F3C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B19CF71B00974E389EC0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0846BE32300BA2D00D13D24AABC
          B3EFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C01B00A32E03
          CB2000ADA69BE3C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C03D21B91F029E917FDEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
      end
      object btnSpeedButton1: TBitBtn
        Left = 445
        Top = 95
        Width = 37
        Height = 36
        TabOrder = 23
        Glyph.Data = {
          F6060000424DF606000000000000360000002800000018000000180000000100
          180000000000C006000000000000000000000000000000000000C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C01800
          922C07AD342176C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C2C2EC5B47B0210486C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C02908B22F00D43212A55A4E8EC0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0B5ADE93D27A1260D93503AACC0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C06952CF2400C33204C8321F8D787B8FC0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A296E03A1FA01E00A57560D4C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07565CB2400BE30
          0ABF2712869499A8C0C0C0C0C0C0C0C0C0C0C0C0C0C0C08168DB2400A52A08AD
          A39ADEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C04D34C32802B4300EB93D3674ADAEBDC0C0C0C0C0C0C0C0C09987DC25
          01A53214AC9585E1C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C04F34C62600B73821994B4577BDC3C4C0C0
          C09B86DF370CAF2A06AD9687E4C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C06349C72500B2
          30169D3C33877257D62700A23107AEB1A4E2C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0664CCD2C11AC260DB22604B7341BA69487DCC0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C04B30D52200DB2901D433259699A2B2C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07E66DF2201B52902D32C00
          DF2F11AE352E74909597C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09889E02300A8
          2F12A67D6ED7967EEC3314AB3A1AA3463880807C9EC0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C093
          86DD2D0CAA2D04B17664C8C0C0C0C0C0C0C1ADFA3710AD310F9E423187616284
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C07C67DF2000AC2603B57566C2C0C0C0C0C0C0C0C0C0C0C0C0C0C0C052
          34B82E08B22F14A1464A79C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C09483E02400AF2507B05240BEC0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C08169DB2A0DA235209841397FC0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C07D6DC82C0AAF2D04BF432EB3C4C1F3C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B19CF71B00974E389EC0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0846BE32300BA2D00D13D24AABC
          B3EFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C01B00A32E03
          CB2000ADA69BE3C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C03D21B91F029E917FDEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
      end
      object dbedtNUMERO: TDBEdit
        Left = 455
        Top = 149
        Width = 103
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        CharCase = ecUpperCase
        DataField = 'NUMERO'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 24
        OnKeyPress = FormKeyPress
      end
      object btn3: TBitBtn
        Left = 391
        Top = 232
        Width = 39
        Height = 31
        Caption = '...'
        TabOrder = 25
        OnClick = btn3Click
      end
      object dbedtCD_IBGE: TDBEdit
        Left = 436
        Top = 237
        Width = 93
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CD_IBGE'
        DataSource = dtsrce
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 26
        OnKeyPress = FormKeyPress
      end
      object cbPais: TJvComboBox
        Left = 536
        Top = 238
        Width = 141
        Height = 22
        Style = csOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 27
        OnChange = cbPaisChange
      end
      object dblkcbbCODFISCAL: TDBLookupComboBox
        Left = 531
        Top = 106
        Width = 146
        Height = 24
        BevelKind = bkFlat
        Ctl3D = True
        DataField = 'CODFISCAL'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        KeyField = 'CODFISCAL'
        ListField = 'DESCRICAO'
        ListSource = DtSrcTFiscal
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 28
        OnKeyPress = FormKeyPress
      end
      object dbedtCFOP: TDBEdit
        Left = 509
        Top = 62
        Width = 70
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CFOP'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 29
        OnKeyPress = FormKeyPress
      end
    end
    object ts2: TTabSheet
      Caption = 'DADOS ADICIONAIS'
      ImageIndex = 1
      object lbl32: TLabel
        Left = 1
        Top = 6
        Width = 56
        Height = 13
        Caption = 'Favorecido '
      end
      object lbl33: TLabel
        Left = 5
        Top = 62
        Width = 31
        Height = 13
        Caption = 'Banco'
      end
      object lbl34: TLabel
        Left = 448
        Top = 62
        Width = 39
        Height = 13
        Caption = 'Agencia'
      end
      object lbl35: TLabel
        Left = 552
        Top = 62
        Width = 28
        Height = 13
        Caption = 'Conta'
      end
      object lbl18: TLabel
        Left = 0
        Top = 177
        Width = 82
        Height = 13
        Caption = 'Centro Resultado'
        Visible = False
      end
      object lbl23: TLabel
        Left = 226
        Top = 177
        Width = 68
        Height = 13
        Caption = 'Conta contabil'
        Visible = False
      end
      object dbedtCNPJ1: TDBEdit
        Left = 1
        Top = 22
        Width = 656
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'FAVORECIDO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 0
        OnKeyPress = FormKeyPress
      end
      object dbedtINSCESTADUAL1: TDBEdit
        Left = 4
        Top = 78
        Width = 441
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'BANCO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 1
        OnKeyPress = FormKeyPress
      end
      object dbedtCFOP1: TDBEdit
        Left = 448
        Top = 78
        Width = 99
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'AGENCIA'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 2
        OnKeyPress = FormKeyPress
      end
      object dbedtDATACADASTRO1: TDBEdit
        Left = 552
        Top = 78
        Width = 105
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CONTA'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 3
        OnKeyPress = FormKeyPress
      end
      object dbnvgr1: TDBNavigator
        Left = 302
        Top = 216
        Width = 152
        Height = 25
        DataSource = dtsrce
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        Hints.Strings = (
          'Primeiro Registro'
          'Registro Anterior'
          'Proximo Registro'
          'Ultimo Registro'
          ''
          '')
        PopupMenu = PopupMenu1
        TabOrder = 4
        Visible = False
      end
      object grp2: TGroupBox
        Left = 4
        Top = 211
        Width = 282
        Height = 42
        Caption = 'Tipo'
        TabOrder = 5
        Visible = False
        object chk1: TCheckBox
          Left = 7
          Top = 19
          Width = 97
          Height = 17
          Caption = 'Compras'
          TabOrder = 0
        end
        object chk2: TCheckBox
          Left = 182
          Top = 18
          Width = 97
          Height = 17
          Caption = 'Despesas'
          TabOrder = 1
        end
        object chkAssistencia: TCheckBox
          Left = 85
          Top = 19
          Width = 97
          Height = 17
          Caption = 'Ass. T'#233'cnica'
          TabOrder = 2
        end
      end
      object cbb1: TComboBox
        Left = 100
        Top = 175
        Width = 121
        Height = 21
        ItemHeight = 0
        TabOrder = 6
        Text = 'cbb1'
        Visible = False
      end
      object dbedtCONTA_FORNECEDOR: TDBEdit
        Left = 300
        Top = 173
        Width = 113
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CONTA_FORNECEDOR'
        DataSource = DtSrc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        TabOrder = 7
        OnKeyPress = FormKeyPress
      end
      object dbedtCONTACONTABIL: TDBEdit
        Left = 420
        Top = 173
        Width = 241
        Height = 24
        BevelKind = bkFlat
        BorderStyle = bsNone
        DataField = 'CONTACONTABIL'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupMenu1
        ReadOnly = True
        TabOrder = 8
        OnKeyPress = FormKeyPress
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    inherited Procurar1: TMenuItem
      OnClick = btnProcurarClick
    end
    object Ficha1: TMenuItem [4]
      Caption = 'Ficha'
      OnClick = Ficha1Click
    end
  end
  inherited DtSrc: TDataSource
    DataSet = cds_fornecedor
    Left = 559
    Top = 10
  end
  object sds_fornecedor: TSQLDataSet
    CommandText = 
      'select f.*, plano.NOME CONTACONTABIL from  FORNECEDOR f '#13#10'left o' +
      'uter join PLANO on plano.CONTA = f.CONTA_FORNECEDOR'#13#10'where f.COD' +
      'FORNECEDOR = :pFORN'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pPARAM'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 463
    Top = 10
    object sds_fornecedorCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_fornecedorNOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object sds_fornecedorRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      Required = True
      Size = 50
    end
    object sds_fornecedorCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 30
    end
    object sds_fornecedorTIPOFIRMA: TSmallintField
      FieldName = 'TIPOFIRMA'
      Required = True
    end
    object sds_fornecedorCPF: TStringField
      FieldName = 'CPF'
      Size = 14
    end
    object sds_fornecedorCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object sds_fornecedorINSCESTADUAL: TStringField
      FieldName = 'INSCESTADUAL'
      Size = 24
    end
    object sds_fornecedorRG: TStringField
      FieldName = 'RG'
      Size = 14
    end
    object sds_fornecedorSEGMENTO: TSmallintField
      FieldName = 'SEGMENTO'
      Required = True
    end
    object sds_fornecedorREGIAO: TSmallintField
      FieldName = 'REGIAO'
      Required = True
    end
    object sds_fornecedorLIMITECREDITO: TFloatField
      FieldName = 'LIMITECREDITO'
    end
    object sds_fornecedorDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Required = True
    end
    object sds_fornecedorCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      Required = True
    end
    object sds_fornecedorSTATUS: TSmallintField
      FieldName = 'STATUS'
      Required = True
    end
    object sds_fornecedorHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 40
    end
    object sds_fornecedorPRAZOPAGAMENTO: TSmallintField
      FieldName = 'PRAZOPAGAMENTO'
    end
    object sds_fornecedorPRAZOENTREGA: TSmallintField
      FieldName = 'PRAZOENTREGA'
    end
    object sds_fornecedorCONTA_FORNECEDOR: TStringField
      FieldName = 'CONTA_FORNECEDOR'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object sds_fornecedorCODFOR: TStringField
      FieldName = 'CODFOR'
      Size = 10
    end
    object sds_fornecedorCODTRANSP: TIntegerField
      FieldName = 'CODTRANSP'
    end
    object sds_fornecedorCONTACONTABIL: TStringField
      FieldName = 'CONTACONTABIL'
      Size = 200
    end
    object sds_fornecedorCODFISCAL: TStringField
      FieldName = 'CODFISCAL'
      FixedChar = True
      Size = 1
    end
    object sds_fornecedorCAMPOADICIONAL: TStringField
      FieldName = 'CAMPOADICIONAL'
      Size = 60
    end
    object sds_fornecedorCAMPOADICIONAL1: TStringField
      FieldName = 'CAMPOADICIONAL1'
      Size = 60
    end
    object sds_fornecedorCFOP: TStringField
      FieldName = 'CFOP'
      Size = 30
    end
    object sds_fornecedorFAVORECIDO: TStringField
      FieldName = 'FAVORECIDO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object sds_fornecedorBANCO: TStringField
      FieldName = 'BANCO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object sds_fornecedorAGENCIA: TStringField
      FieldName = 'AGENCIA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_fornecedorCONTA: TStringField
      FieldName = 'CONTA'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_fornecedor: TDataSetProvider
    DataSet = sds_fornecedor
    UpdateMode = upWhereKeyOnly
    Left = 495
    Top = 10
  end
  object cds_fornecedor: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pPARAM'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_fornecedor'
    Left = 527
    Top = 10
    object cds_fornecedorCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '0000000'
    end
    object cds_fornecedorNOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object cds_fornecedorRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      Required = True
      Size = 50
    end
    object cds_fornecedorCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 30
    end
    object cds_fornecedorTIPOFIRMA: TSmallintField
      FieldName = 'TIPOFIRMA'
      Required = True
    end
    object cds_fornecedorCPF: TStringField
      FieldName = 'CPF'
      Size = 14
    end
    object cds_fornecedorCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object cds_fornecedorINSCESTADUAL: TStringField
      FieldName = 'INSCESTADUAL'
      Size = 24
    end
    object cds_fornecedorRG: TStringField
      FieldName = 'RG'
      Size = 14
    end
    object cds_fornecedorSEGMENTO: TSmallintField
      FieldName = 'SEGMENTO'
      Required = True
    end
    object cds_fornecedorREGIAO: TSmallintField
      FieldName = 'REGIAO'
      Required = True
    end
    object cds_fornecedorLIMITECREDITO: TFloatField
      FieldName = 'LIMITECREDITO'
    end
    object cds_fornecedorDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Required = True
    end
    object cds_fornecedorCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      Required = True
    end
    object cds_fornecedorSTATUS: TSmallintField
      FieldName = 'STATUS'
      Required = True
    end
    object cds_fornecedorHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 40
    end
    object cds_fornecedorPRAZOPAGAMENTO: TSmallintField
      FieldName = 'PRAZOPAGAMENTO'
    end
    object cds_fornecedorPRAZOENTREGA: TSmallintField
      FieldName = 'PRAZOENTREGA'
    end
    object cds_fornecedorCONTA_FORNECEDOR: TStringField
      FieldName = 'CONTA_FORNECEDOR'
      Size = 15
    end
    object cds_fornecedorCODFOR: TStringField
      FieldName = 'CODFOR'
      Size = 10
    end
    object cds_fornecedorCODTRANSP: TIntegerField
      FieldName = 'CODTRANSP'
    end
    object cds_fornecedorCONTACONTABIL: TStringField
      FieldName = 'CONTACONTABIL'
      ReadOnly = True
      Size = 200
    end
    object cds_fornecedorCODFISCAL: TStringField
      FieldName = 'CODFISCAL'
      FixedChar = True
      Size = 1
    end
    object cds_fornecedorCAMPOADICIONAL: TStringField
      FieldName = 'CAMPOADICIONAL'
      Size = 60
    end
    object cds_fornecedorCAMPOADICIONAL1: TStringField
      FieldName = 'CAMPOADICIONAL1'
      Size = 60
    end
    object cds_fornecedorCFOP: TStringField
      FieldName = 'CFOP'
      Size = 30
    end
    object cds_fornecedorFAVORECIDO: TStringField
      FieldName = 'FAVORECIDO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object cds_fornecedorBANCO: TStringField
      FieldName = 'BANCO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object cds_fornecedorAGENCIA: TStringField
      FieldName = 'AGENCIA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_fornecedorCONTA: TStringField
      FieldName = 'CONTA'
      ProviderFlags = [pfInUpdate]
    end
  end
  object VCLReport1: TVCLReport
    AsyncExecution = False
    Title = 'Untitled'
    Left = 432
    Top = 8
  end
  object dtsrce: TDataSource
    DataSet = cds_endfor
    OnStateChange = dtsrceStateChange
    Left = 344
    Top = 8
  end
  object cds_endfor: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'codfor'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_endfor'
    Left = 313
    Top = 8
    object cds_endforCODENDERECO: TIntegerField
      FieldName = 'CODENDERECO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_endforCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate]
    end
    object cds_endforLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_endforBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_endforCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_endforCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_endforUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object cds_endforCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      EditMask = '00000-999;1;_'
      Size = 10
    end
    object cds_endforDDD: TSmallintField
      FieldName = 'DDD'
      ProviderFlags = [pfInUpdate]
    end
    object cds_endforTELEFONE: TStringField
      FieldName = 'TELEFONE'
      ProviderFlags = [pfInUpdate]
      Size = 11
    end
    object cds_endforTELEFONE1: TStringField
      FieldName = 'TELEFONE1'
      ProviderFlags = [pfInUpdate]
      Size = 11
    end
    object cds_endforTELEFONE2: TStringField
      FieldName = 'TELEFONE2'
      ProviderFlags = [pfInUpdate]
      Size = 11
    end
    object cds_endforFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      Size = 9
    end
    object cds_endforE_MAIL: TStringField
      FieldName = 'E_MAIL'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_endforRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_endforTIPOEND: TSmallintField
      FieldName = 'TIPOEND'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object cds_endforDADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object cds_endforCD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      Size = 10
    end
    object cds_endforNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 5
    end
    object cds_endforPAIS: TStringField
      FieldName = 'PAIS'
      Size = 60
    end
  end
  object dsp_endfor: TDataSetProvider
    DataSet = sds_endfor
    UpdateMode = upWhereKeyOnly
    Left = 281
    Top = 8
  end
  object sds_endfor: TSQLDataSet
    CommandText = 'select * from ENDERECOFORNECEDOR'#13#10'where CODFORNECEDOR =:codfor'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'codfor'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 249
    Top = 8
    object sds_endforCODENDERECO: TIntegerField
      FieldName = 'CODENDERECO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_endforCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object sds_endforLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object sds_endforBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_endforCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_endforCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object sds_endforUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 2
    end
    object sds_endforCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_endforDDD: TSmallintField
      FieldName = 'DDD'
      ProviderFlags = [pfInUpdate]
    end
    object sds_endforTELEFONE: TStringField
      FieldName = 'TELEFONE'
      ProviderFlags = [pfInUpdate]
      Size = 11
    end
    object sds_endforTELEFONE1: TStringField
      FieldName = 'TELEFONE1'
      ProviderFlags = [pfInUpdate]
      Size = 11
    end
    object sds_endforTELEFONE2: TStringField
      FieldName = 'TELEFONE2'
      ProviderFlags = [pfInUpdate]
      Size = 11
    end
    object sds_endforFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      Size = 9
    end
    object sds_endforE_MAIL: TStringField
      FieldName = 'E_MAIL'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_endforRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sds_endforTIPOEND: TSmallintField
      FieldName = 'TIPOEND'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object sds_endforDADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object sds_endforCD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      Size = 10
    end
    object sds_endforNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 5
    end
    object sds_endforPAIS: TStringField
      FieldName = 'PAIS'
      Size = 60
    end
  end
  object DtSrcTFiscal: TDataSource
    DataSet = cdsTFiscal
    Left = 639
    Top = 38
  end
  object cdsTFiscal: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTFiscal'
    Left = 601
    Top = 39
    object cdsTFiscalCODFISCAL: TStringField
      FieldName = 'CODFISCAL'
      Required = True
      FixedChar = True
      Size = 1
    end
    object cdsTFiscalDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 60
    end
  end
  object dspTFiscal: TDataSetProvider
    DataSet = sdsTFiscal
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 570
    Top = 39
  end
  object sdsTFiscal: TSQLDataSet
    CommandText = 'select * from TIPO_FISCAL'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 532
    Top = 39
    object sdsTFiscalCODFISCAL: TStringField
      FieldName = 'CODFISCAL'
      Required = True
      FixedChar = True
      Size = 1
    end
    object sdsTFiscalDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 60
    end
  end
  object SQLDataSet1: TSQLDataSet
    CommandText = 'select * from DADOS_COMBOS '#13#10'where USO = '#39'regiaoFor'#39' '
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 145
    Top = 214
    object SQLDataSet1CODDADOS: TIntegerField
      FieldName = 'CODDADOS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SQLDataSet1DESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object SQLDataSet1USO: TStringField
      FieldName = 'USO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1CODIGOS: TStringField
      FieldName = 'CODIGOS'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object SQLDataSet1OUTROS: TStringField
      FieldName = 'OUTROS'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    UpdateMode = upWhereKeyOnly
    Left = 175
    Top = 214
  end
  object dsRegiao: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 206
    Top = 214
    object dsRegiaoCODDADOS: TIntegerField
      FieldName = 'CODDADOS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dsRegiaoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dsRegiaoUSO: TStringField
      FieldName = 'USO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dsRegiaoCODIGOS: TStringField
      FieldName = 'CODIGOS'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dsRegiaoOUTROS: TStringField
      FieldName = 'OUTROS'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
  end
  object dsDtSrcReg: TDataSource
    DataSet = dsRegiao
    Left = 236
    Top = 213
  end
  object procIBGE: TSQLClientDataSet
    CommandText = 
      'select  NM_LOCALIDADE, CD_UF, CD_IBGE, NM_MUNICIPIO from TB_IBGE' +
      ' where NM_LOCALIDADE LIKE :NOME'#13#10'order by NM_LOCALIDADE'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'NOME'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 445
    Top = 240
    object procIBGENM_LOCALIDADE2: TStringField
      DisplayLabel = 'Cidade/Vila'
      FieldName = 'NM_LOCALIDADE'
      Required = True
      Size = 40
    end
    object procIBGECD_UF: TStringField
      DisplayLabel = 'UF'
      FieldName = 'CD_UF'
      FixedChar = True
      Size = 2
    end
    object procIBGENM_MUNICIPIO: TStringField
      DisplayLabel = 'Nome Munic'#237'pio'
      FieldName = 'NM_MUNICIPIO'
      Size = 40
    end
    object procIBGECD_IBGE: TStringField
      DisplayLabel = 'C'#243'digo IBGE'
      FieldName = 'CD_IBGE'
      Required = True
      Size = 10
    end
  end
  object dsPais: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPais'
    Left = 661
    Top = 271
    object dsPaisCODPAIS: TStringField
      FieldName = 'CODPAIS'
      Required = True
      FixedChar = True
      Size = 4
    end
    object dsPaisPAIS: TStringField
      FieldName = 'PAIS'
      Required = True
      Size = 60
    end
  end
  object dspPais: TDataSetProvider
    DataSet = sdsPais
    Left = 625
    Top = 271
  end
  object sdsPais: TSQLDataSet
    CommandText = 'Select * from PAIS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 585
    Top = 271
    object sdsPaisCODPAIS: TStringField
      FieldName = 'CODPAIS'
      Required = True
      FixedChar = True
      Size = 4
    end
    object sdsPaisPAIS: TStringField
      FieldName = 'PAIS'
      Required = True
      Size = 60
    end
  end
end
